﻿Public Class WebForm1
    Inherits System.Web.UI.Page

    Private Sub WebForm1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Dim dateCourante As Date = Date.Now
        LiteralTime.Text = "C'est le serveur web poli, le " & dateCourante.Day & " " & MonthName(dateCourante.Month) & ", " & dateCourante.Year & " a " & dateCourante.ToString("HH:MM:ss")
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim heureCourante As Integer = System.DateTime.Now.Hour

        If heureCourante <= 8 Then
            LiteralTimeMessage.Text = "Sait-tu l'heure qu'il est. Je suis encore au lit"
        Else

            Dim generateurNbre As New Random()
            'Generation d'un nombre [1,5[ (5 est donc exclus)
            Dim valeurAleatoire = generateurNbre.Next(1, 5)

            Dim message As String = ""

            Select Case valeurAleatoire
                Case 1
                    message = "Vive ASP.NET"
                Case 2
                    message = "Serveur poli avec message aléatoire"
                Case 3
                    message = "Je suis un seveur poli"
                Case 4
                    message = "Ceci est un message aleatoire"
            End Select

            LiteralTimeMessage.Text = message

        End If

    End Sub

End Class